home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -serious- / wb / wbchanger / wbchanger.dopus5 < prev    next >
Text File  |  1999-06-15  |  578b  |  29 lines
  1. /*
  2. $VER: WBChanger.dopus5 1.4
  3.  
  4.     Written by Wojtek Zatorski <wzator@polbox.com>
  5.  
  6.    
  7.     USAGE:  - Copy WBChanger.dopus5 to DOpus5:modules/
  8.             - A new version command is available from
  9.               pop-up command lists in all editors.
  10. */
  11.  
  12. parse arg portname function source dest arguments
  13. address value portname
  14. options results
  15. lf='0a'x
  16.  
  17.  
  18. if function = 'init' then do
  19.     dopus command "WBChanger" program "WBChanger" desc "'Workbench/Dopus5 Screen Changer'" 'source'
  20.     exit
  21.     end
  22.  
  23. if function = 'WBChanger' then do
  24.  
  25.     ADDRESS 'WBCH.1'
  26.      'CHANGEWB'
  27.     end
  28.     exit
  29.